En este laboratorio vamos a modificar la plantilla inicial de shiny para poder cargar nuestros datos y hacer figuras reactivas.

Iniciaremos cargando las librerias que vamos a utilizar

# Cargar las librerias
library(shiny)
library(dplyr) # Para manipulacion de datos
library(ggplot2) # Para las figuras

Ahora cargaremos los datos que usaremos. Asegurate de poner la direccion del archivo correctamente, en el caso de mi proyecto, yo tengo mis datos en una carpeta que se llama Datos y quiero cargar el archivo Mov.csv.

# Cargar los datos
df <- read.csv('../Datos/Mov.csv') %>% 
  mutate(week = as.Date(week)) # Formatear la fecha

Las aplicaciones shiny constan de dos partes: la interfaz y el servidosr.

Interfaz

Servidor

LS0tCnRpdGxlOiAiTGFiIEliIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7ciBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZXZhbCA9IEYpCmBgYAoKCkVuIGVzdGUgbGFib3JhdG9yaW8gdmFtb3MgYSBtb2RpZmljYXIgbGEgcGxhbnRpbGxhIGluaWNpYWwgZGUgc2hpbnkgcGFyYSBwb2RlciBjYXJnYXIgbnVlc3Ryb3MgZGF0b3MgeSBoYWNlciBmaWd1cmFzIHJlYWN0aXZhcy4gIAoKSW5pY2lhcmVtb3MgY2FyZ2FuZG8gbGFzIGxpYnJlcmlhcyBxdWUgdmFtb3MgYSB1dGlsaXphcgoKYGBge3IgTG9hZGluZyBsaWJyYXJpZXN9CiMgQ2FyZ2FyIGxhcyBsaWJyZXJpYXMKbGlicmFyeShzaGlueSkKbGlicmFyeShkcGx5cikgIyBQYXJhIG1hbmlwdWxhY2lvbiBkZSBkYXRvcwpsaWJyYXJ5KGdncGxvdDIpICMgUGFyYSBsYXMgZmlndXJhcwpgYGAKCkFob3JhIGNhcmdhcmVtb3MgbG9zIGRhdG9zIHF1ZSB1c2FyZW1vcy4gQXNlZ3VyYXRlIGRlIHBvbmVyIGxhIGRpcmVjY2lvbiBkZWwgYXJjaGl2byBjb3JyZWN0YW1lbnRlLCBlbiBlbCBjYXNvIGRlIG1pIHByb3llY3RvLCB5byB0ZW5nbyBtaXMgZGF0b3MgZW4gdW5hIGNhcnBldGEgcXVlIHNlIGxsYW1hICpEYXRvcyogeSBxdWllcm8gY2FyZ2FyIGVsIGFyY2hpdm8gKk1vdi5jc3YqLgoKYGBge3IgTG9hZGluZyBkYXRhfQojIENhcmdhciBsb3MgZGF0b3MKZGYgPC0gcmVhZC5jc3YoJy4uL0RhdG9zL01vdi5jc3YnKSAlPiUgCiAgbXV0YXRlKHdlZWsgPSBhcy5EYXRlKHdlZWspKSAjIEZvcm1hdGVhciBsYSBmZWNoYQpgYGAKICAKTGFzIGFwbGljYWNpb25lcyBzaGlueSBjb25zdGFuIGRlIGRvcyBwYXJ0ZXM6IGxhIGludGVyZmF6IHkgZWwgc2Vydmlkb3NyLgoKCiMgSW50ZXJmYXoKCiMgU2Vydmlkb3I=